home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvapukak.plp < prev    next >
Text File  |  1993-11-30  |  34KB  |  1,167 lines
  1. /************************************************************************
  2. *    アップロード予約の確認・削除・変更                *
  3. ************************************************************************/
  4. %UPKAKUN{
  5.     A:=1;
  6.     loop({
  7.     %UPDATA @read(TEMPPATH|{\PVAPUP.DAT});
  8.     %TYPE @nth(@getline(UPDATA,A,{1}),1,{/});
  9.     case    (TYPE,
  10.         {テキストメール},    {MAILKAKU;im({Yes})},
  11.         {バイナリメール},    {MAILKAKU;im({Yes})},
  12.         {事務局宛メール},    {JMAILKAKU;im({Yes})},
  13.         {ＮＩＦＴＹ連携メール},    {NIFMAILKAKU;im({Yes})},
  14.         {不在通知},        {FUZAKAKU;im({Yes})},
  15.         {プロフィール},        {PROFKAKU;im({Yes})},
  16.         {フォーラム},        {KAKIKAKU;im({Yes})},
  17.         {ＳＩＧ内会議室},    {KAKIKAKU;im({Yes})},
  18.         {ＢＢＳ},        {KAKIKAKU;im({Yes})},
  19.         {ＣＵＧ内会議室},    {CUGKAKU;im({Yes})},
  20.         {ＣＵＧ内掲示板},    {CUGKAKU;im({Yes})},
  21.         {ＯＬＴ広場},        {OLTKAKU;im({Yes})},
  22.         {ＳＩＧ内ＯＬＴ広場},    {SIGOLTKAK;im({Yes})},
  23.         {ＣＵＧ内ＯＬＴ広場},    {CUGOLTKAK;im({Yes})},
  24.         {ＳＩＧ内ＯＳＬ},    {OSLKAKU;im({Yes})},
  25.         {ＣＵＧ内ＯＳＬ},    {CUGOSLKAKU;im({Yes})});
  26.     });
  27.     %UPDATA @read(TEMPPATH|{\PVAPUP.DAT});
  28.     case(UPDATA,{},{delfile(TEMPPATH|{\PVAPUP.DAT})});
  29. };
  30.  
  31. /*    アップロードファイル内容確認    */
  32. %KAKUNIN{
  33.     var    file1    [64];
  34.     loop    ({
  35.     footnote({テキストファイルを選択してください});
  36.     file1:=@filesel;
  37.     case    (file1<>{},
  38.         {Yes},    {case    (@nochar(@getcdir)==3,
  39.                 {Yes},{file1:=@getcdir|file1},
  40.                 {No},{file1:=@getcdir|{\}|file1})});
  41.     case    (file1={}||@filechk(file1)={No},
  42.         {Yes},    {file1:={}},
  43.         {No},    {footnote({送信用テキストファイルを確認します});
  44.             CloseAllMemo;
  45.             madd(memono,{\n});
  46.             mclear(memono);
  47.             mread(file1,memono);
  48.             mopen(memono,0,21,639,459,{w});
  49.             %a    @loop({
  50.                 footnote({指定 次 取消},{b});
  51.                 waitx();
  52.                 case    (@xtype,
  53.                     101,{im(file1)},
  54.                     201,{im(file1)},
  55.                     102,{im({next})},
  56.                     202,{im({next})},
  57.                     103,{im({cancel})},
  58.                     203,{im({cancel})},,{im({Yes})});
  59.                 });
  60.             CloseAllMemo;
  61.             case(a,    {next},    {im({Yes})},
  62.                 {cancel},{file1:={};im({No})},,{im({No})})});
  63.     });
  64.     case(file1<>{},{Yes},{CloseMEMO(memono);SENDFILE:=file1});
  65. };
  66.  
  67. /*    ＩＤ検索処理    */
  68. %IDsearch{
  69.     %memono1    @mlast+1;
  70.     %pickid{
  71.     %m  @nolmemo(memono1);
  72.     %n  @xlinenum;
  73.     %l1 @case    (n<1,
  74.             {Yes},    {im(@memo(memono1,1,1))},
  75.             {No},    {case    (n>m,
  76.                     {Yes},{im(@memo(memono1,m,1))},
  77.                     {No},{im(@memo(memono1,n,1))})});
  78.     im(@head(l1,{ }));
  79.     };
  80.  
  81.     %idsearch{
  82.     case (SENDID,{},{SENDID:=SENDID2},,{SENDID:=SENDID|{,}|SENDID2});
  83.     };
  84.  
  85.     case    (memono1>9,
  86.         {Yes},{SNDMSG({kaknin_f.snd});
  87.             select({メモ番号が一杯のためメモを開けません},
  88.                 99999,,)},
  89.         {No},
  90.         {CloseAllMemo;
  91.         madd(memono1,{\n});
  92.         mclear(memono1);
  93.         case    (@filechk(DIR1|{\PVAPLIST.DAT}),
  94.             {Yes},{mread(DIR1|{\PVAPLIST.DAT},memono1)});
  95.          mopen(memono1,320,21,639,459,{r});
  96.         footnote({選択中止},{b});
  97.         loop({
  98.         waitx();
  99.         case    (@xtype,
  100.             101,{%SENDID2 @pickid;idsearch;im({No})},
  101.             201,{%SENDID2 @pickid;idsearch;im({No})},
  102.             102,{im({No})},        202,{im({No})},
  103.             memono1,{%SENDID2 @pickid;idsearch;im({No})},
  104.                 ,{im({Yes})});
  105.         });
  106.         case    (@mcheck==memono1,
  107.             {Yes},    {mclose(3)},
  108.             {No},    {CloseAllMemo;mopen(memono1);mclose(3)})});
  109. };
  110.  
  111. /*    アップロードファイル指定処理    */
  112. %FILEsel1{
  113.     var upfile[64];
  114.     SNDMSG({erande_f.snd});
  115.     upfile:=@filesel;
  116.     case    (upfile,
  117.         {},    {im({})},,
  118.             {case    (@nochar(@getcdir)=3,
  119.                 {Yes},    {upfile:=@getcdir|upfile},
  120.                 {No},    {upfile:=@getcdir|{\}|upfile})});
  121.     im(upfile);
  122. };
  123.  
  124. /*    他のファイルを参照するためにメモを開く    */
  125. %newmemo{
  126.     case    (@mlast==9,
  127.         {Yes},    {SNDMSG({kaknin_f.snd});
  128.             select({メモ番号が一杯のため、}|
  129.                     {新しいメモが開けません},99999,,
  130.                 { 確認 },)},
  131.         {No},
  132.             {CloseAllMemo;
  133.             mopen(memono,0,21,639,439);
  134.             mclose(1);
  135.             %MEMO @mlast+1;
  136.             madd(MEMO,{\n});
  137.             mclear(MEMO);
  138.             %file1    @filesel;
  139.             case    (file1<>{}&&@filechk(file1)={Yes},
  140.                 {Yes},{mread(file1,MEMO)});
  141.             mopen(MEMO,0,221,639,459)});
  142.     im({Yes});
  143. };
  144.  
  145. /*    アップロードファイル更新    */
  146. %KOUSHIN{
  147.     [file,memono]
  148.     %savememo{
  149.     footnote({送信用テキストファイルを更新します});
  150.     CloseAllMemo;
  151.     mwrite(file,memono);
  152.     AllDelMEMO;
  153.     im({No});
  154.     };
  155.  
  156.     footnote({送信用テキストファイルを更新します});
  157.     madd(memono,{\n});
  158.     mclear(memono);
  159.     mread(file,memono);
  160.     mopen(memono,0,21,639,459,{w});
  161.     loop({
  162.     footnote({終了取消参照清書},{b});
  163.     waitx();
  164.     case    (@xtype,
  165.         101,{savememo},
  166.         201,{savememo},
  167.         102,{cancel},
  168.         202,{cancel},
  169.         103,{newmemo},
  170.         203,{newmemo},
  171.         104,{rewrite},
  172.         204,{rewrite},,{im({Yes})});
  173.     });
  174. };
  175.  
  176. /*    アップ用文書を清書する    */
  177. %rewrite{
  178.     footnote({編集中のメモ内容を清書しています});
  179.     CloseAllMemo;
  180.     dispoff({Yes});
  181.     %cdir @getcdir;
  182.     setcdir(DIR1);
  183.     command({del }|TEMPPATH|{\_moptext.tmp});
  184.     command({del }|TEMPPATH|{\_moptext.new});
  185.     mwrite(TEMPPATH|{\_moptext.tmp},memono);
  186.     case    (DIR2={},
  187.         {Yes},    {command({txf -f -i }|TEMPPATH|{\_moptext.tmp}|
  188.                 { -o }|TEMPPATH|{\_moptext.new})},
  189.         {No},    {command(DIR2|{\txf -f -i }|TEMPPATH|{\_moptext.tmp}|
  190.                 { -o }|TEMPPATH|{\_moptext.new})});
  191.  
  192.     dispoff({No});
  193.     case    (@filechk(TEMPPATH|{\_moptext.new}),
  194.         {Yes},    {mclear(memono);
  195.             mread(TEMPPATH|{\_moptext.new},memono);
  196.             %memomax    @mlast;
  197.             case    (memomax>memono,
  198.                 {Yes},{mopen(memono,0,21,639,399,{w})},
  199.                 {No},{mopen(memono,0,21,639,459,{w})});
  200.             var memono1[1];
  201.             memono1:=memono+1;
  202.             loop({
  203.             case    (memono1<=memomax,
  204.                 {Yes},{mclose(1);mopen(memono1)});
  205.             memono1:=memono1+1;
  206.             im(memono1<=memomax);
  207.             })},
  208.         {No},    {SNDMSG({kaknin_f.snd});
  209.             select({清書機能には TXF.EXE がパスの通った}|
  210.                 {ディレクトリに必要です},99999,,
  211.                 { 確認 },);
  212.             mopen(memono,0,21,639,459,{w});
  213.             %memomax @mlast;
  214.             var memono1[1];
  215.             memono1:=memono+1;
  216.             loop({
  217.             case    (memono1<=memomax,
  218.                 {Yes},{mclose(1);mopen(memono1)});
  219.             memono1:=memono1+1;
  220.             im(memono1<=memomax);
  221.             })});
  222.     setcdir(cdir);
  223.     im({Yes});
  224. };
  225.  
  226. /*    アップ文書作成をキャンセルする    */
  227. %cancel    {
  228.     SNDMSG({kaknin_f.snd});
  229.     footnote({文書編集を取消しますか？});
  230.     select({文書編集を取消しますか？},
  231.         99999,{footnote({});im({Yes})},
  232.         {  は  い  },    {AllDelMEMO;
  233.                 footnote({});
  234.                 im({No})},
  235.         {  いいえ  },    {footnote({});im({Yes})});
  236. };
  237.  
  238. /*    表示用メモを準備する    */
  239. %memoprep{
  240.     CloseAllMemo;
  241.     madd(memono,{\n});
  242.     mclear(memono);
  243. };
  244.  
  245. /*    メールアップロード予約確認    */
  246. %MAILKAKU{
  247.     var SENDID[64];
  248.     var TITLE[40];
  249.     var AD[6];
  250.     var MAILCOM[4];
  251.     var SENDFILE[64];
  252.     var ok[2];
  253.     %MAILTYPE    @nth(@getline(UPDATA,A,{1}),1,{/});
  254.     SENDID:=    @nth(@getline(UPDATA,A,{1}),2,{/});
  255.     AD:=        @nth(@getline(UPDATA,A,{1}),3,{/});
  256.     TITLE:=        @nth(@getline(UPDATA,A,{1}),4,{/});
  257.     MAILCOM:=    @nth(@getline(UPDATA,A,{1}),5,{/});
  258.     SENDFILE:=    @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  259.     memoprep;
  260.     case    (AD={},
  261.         {No},
  262.         {madd(memono,MAILTYPE|{アップロード\n}|
  263.             {【　送信ＩＤ　】}|SENDID|{\n}|
  264.             {【　送信　日　】}|
  265.             @getchar(AD,{1},{2})|{年}|@getchar(AD,{3},{2})|{月}|
  266.             @getchar(AD,{5},{2})|{日}|{\n}|
  267.             {【　コマンド　】}|MAILCOM|{\n}|
  268.             {【　タイトル　】}|TITLE|{\n}|
  269.             {【送信ファイル】}|SENDFILE|{\n})},
  270.         {Yes},
  271.         {madd(memono,MAILTYPE|{アップロード\n}|
  272.             {【　送信ＩＤ　】}|SENDID|{\n}|
  273.             {【　送信　日　】設定無し\n}|
  274.             {【　コマンド　】}|MAILCOM|{\n}|
  275.             {【　タイトル　】}|TITLE|{\n}|
  276.             {【送信ファイル】}|SENDFILE|{\n})});
  277.     mopen(memono,0,181,639,459,{r});
  278.     SNDMSG({kaknin_f.snd});
  279.     footnote({確認して下さい});
  280.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  281.         { 変更 },{CloseMEMO(memono);MAILHEN;A:=A+1},
  282.         { 削除 },{CloseMEMO(memono);DEL},
  283.         {  次  },{CloseMEMO(memono);A:=A+1});
  284. };
  285.  
  286. /*    メールアップロード予約変更    */
  287. %MAILHEN{
  288.     loop({
  289.     %mailcom @case(MAILCOM,{BC},{im({1})},,{im({2})});
  290.     SNDMSG({nyuryo_f.snd});
  291.     footnote(MAILTYPE|{アップロード予約});
  292.     %a    @plane(    {c}|MAILTYPE|{アップロード予約\n}|
  293.             {t送信ＩＤ     /\n}|
  294.             {s             / ＩＤ一覧 \n}|
  295.             {c　複数のＩＤに送信する場合は｢,｣で区切って下さい\n}|
  296.             {tタイトル     /12345678901234567890}|
  297.             {12345678901234567890\n}|
  298.             {t送信日       /123456\n}|
  299.             {c （例）920428  92年4月28日に送信する場合\n}|
  300.             {rコマンド     /ＢＣ /無し\n}|
  301.             {t送信ファイル /\n}|
  302.             {s             / ﾌｧｲﾙ一覧 / 内容更新 \n}|
  303.             {s/ 登録 / 取消 \n},
  304.             SENDID,TITLE,AD,mailcom,SENDFILE);
  305.     SENDID:=    @head(@getline(a,1,1),{\n});
  306.     %sel2        @head(@getline(a,2,1),{\n});
  307.     TITLE:=        @head(@getline(a,3,1),{\n});
  308.     AD:=        @head(@getline(a,4,1),{\n});
  309.     %mailcom    @head(@getline(a,5,1),{\n});
  310.     MAILCOM:=    @case    (mailcom,
  311.                 { 1},{im({BC})},
  312.                 { 2},{im({無し})});
  313.     SENDFILE:=    @head(@getline(a,6,1),{\n});
  314.     %sel        @head(@getline(a,7,1),{\n});
  315.     ok:=        @head(@getline(a,8,1),{\n});
  316.     case(sel,    { 1},{case    (MAILTYPE,
  317.                     {テキストメール},
  318.                         {KAKUNIN;im({Yes})},
  319.                     {バイナリメール},
  320.                         {SENDFILE:=@FILEsel1;
  321.                         im({Yes})})},
  322.             { 2},{case    (MAILTYPE,
  323.                     {テキストメール},
  324.                         {KOUSHIN(SENDFILE,memono);
  325.                         im({Yes})},,
  326.                         {im({Yes})})});
  327.     case(sel2,    { 1},{IDsearch;im({Yes})});
  328.     });
  329.     %WRITE{
  330.     delfile(TEMPPATH|{\PVAPUP.DAT});
  331.     write    (TEMPPATH|{\PVAPUP.DAT},
  332.         @getline(UPDATA,1,A-1)|
  333.         MAILTYPE|{/}|
  334.         SENDID|{/}|
  335.         AD|{/}|
  336.         TITLE|{/}|
  337.         MAILCOM|{/}|
  338.         SENDFILE|{\n}|
  339.         @getline(UPDATA,A+1));
  340.     };
  341.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  342. };
  343.  
  344. /*    ＮＩＦＴＹ連携メールアップロード予約確認    */
  345. %NIFMAILKAKU{
  346.     var SENDID[64];
  347.     var TITLE[40];
  348.     var AD[6];
  349.     var SENDFILE[64];
  350.     var ok[2];
  351.     SENDID:=    @nth(@getline(UPDATA,A,{1}),2,{/});
  352.     TITLE:=        @nth(@getline(UPDATA,A,{1}),3,{/});
  353.     AD:=        @nth(@getline(UPDATA,A,{1}),4,{/});
  354.     SENDFILE:=    @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  355.     memoprep;
  356.     case    (AD={},
  357.         {No},{madd(memono,{ＮＩＦＴＹ連携メールアップロード\n}|
  358.             {【　送信ＩＤ　】}|SENDID|{\n}|
  359.             {【　タイトル　】}|TITLE|{\n}|
  360.             {【　送信　日　】}|
  361.             @getchar(AD,{1},{2})|{年}|@getchar(AD,{3},{2})|{月}|
  362.             @getchar(AD,{5},{2})|{日}|{\n}|
  363.             {【送信ファイル】}|SENDFILE|{\n})},
  364.         {Yes},{madd(memono,{ＮＩＦＴＹ連携メールアップロード\n}|
  365.             {【　送信ＩＤ　】}|SENDID|{\n}|
  366.             {【　タイトル　】}|TITLE|{\n}|
  367.             {【　送信　日　】設定無し\n}|
  368.             {【送信ファイル】}|SENDFILE|{\n})});
  369.     mopen(memono,0,181,639,459,{r});
  370.     SNDMSG({kaknin_f.snd});
  371.     footnote({確認して下さい});
  372.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  373.         { 変更 },{CloseMEMO(memono);NIFMAILHEN;A:=A+1},
  374.         { 削除 },{CloseMEMO(memono);DEL},
  375.         {  次  },{CloseMEMO(memono);A:=A+1});
  376. };
  377.  
  378. /*    ＮＩＦＴＹ連携メールアップロード予約変更    */
  379. %NIFMAILHEN{
  380.     loop({
  381.     SNDMSG({nyuryo_f.snd});
  382.     footnote({ＮＩＦＴＹ連携メールアップロード予約});
  383.     %a    @plane(    {cＮＩＦＴＹ連携メールアップロード予約\n}|
  384.             {t送信ＩＤ     /\n}|
  385.             {c　複数のＩＤに送信する場合は｢,｣で区切って下さい\n}|
  386.             {tタイトル     /12345678901234567890}|
  387.             {12345678901234567890\n}|
  388.             {t送信日       /123456\n}|
  389.             {c （例）920428  92年4月28日に送信する場合\n}|
  390.             {t送信ファイル /\n}|
  391.             {s             / ﾌｧｲﾙ一覧 / 内容更新 \n}|
  392.             {s/ 登録 / 取消 \n},
  393.             SENDID,TITLE,AD,SENDFILE);
  394.     SENDID:=    @head(@getline(a,1,1),{\n});
  395.     TITLE:=        @head(@getline(a,2,1),{\n});
  396.     AD:=        @head(@getline(a,3,1),{\n});
  397.     SENDFILE:=    @head(@getline(a,4,1),{\n});
  398.     %sel        @head(@getline(a,5,1),{\n});
  399.     ok:=        @head(@getline(a,6,1),{\n});
  400.     case(sel,    { 1},{KAKUNIN;im({Yes})},
  401.             { 2},{KOUSHIN(SENDFILE,memono);im({Yes})});
  402.     });
  403.     %WRITE{
  404.     delfile(TEMPPATH|{\PVAPUP.DAT});
  405.     write    (TEMPPATH|{\PVAPUP.DAT},
  406.         @getline(UPDATA,1,A-1)|
  407.         {ＮＩＦＴＹ連携メール/}|
  408.         SENDID|{/}|
  409.         TITLE|{/}|
  410.         AD|{/}|
  411.         SENDFILE|{\n}|
  412.         @getline(UPDATA,A+1));
  413.     };
  414.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  415. };
  416.  
  417. /*    ＰＣ－ＶＡＮ事務局宛メールアップロード予約確認    */
  418. %JMAILKAKU{
  419.     var TITLE[40];
  420.     var SENDFILE[64];
  421.     var ok[2];
  422.     TITLE:=        @nth(@getline(UPDATA,A,{1}),2,{/});
  423.     SENDFILE:=    @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  424.     memoprep;
  425.     madd(memono,{事務局宛メールアップロード\n}|
  426.         {【　タイトル　】}|TITLE|{\n}|
  427.         {【送信ファイル】}|SENDFILE|{\n});
  428.     mopen(memono,0,181,639,459,{r});
  429.     SNDMSG({kaknin_f.snd});
  430.     footnote({確認して下さい});
  431.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  432.         { 変更 },{CloseMEMO(memono);JMAILHEN;A:=A+1},
  433.         { 削除 },{CloseMEMO(memono);DEL},
  434.         {  次  },{CloseMEMO(memono);A:=A+1});
  435. };
  436.  
  437. /*    ＰＣ－ＶＡＮ事務局宛メールアップロード予約変更    */
  438. %JMAILHEN{
  439.     loop({
  440.     SNDMSG({nyuryo_f.snd});
  441.     footnote({事務局宛メールアップロード予約});
  442.     %a    @plane(    {c事務局宛メールアップロード予約\n}|
  443.             {tタイトル     /}|
  444.             {1234567890123456789012345678901234567890\n}|
  445.             {t送信ファイル /\n}|
  446.             {s             / ﾌｧｲﾙ一覧 / 内容更新 \n}|
  447.             {s/ 登録 / 取消 \n},
  448.             TITLE,SENDFILE);
  449.     TITLE:=        @head(@getline(a,1,1),{\n});
  450.     SENDFILE:=    @head(@getline(a,2,1),{\n});
  451.     %sel        @head(@getline(a,3,1),{\n});
  452.     ok:=        @head(@getline(a,4,1),{\n});
  453.     case(sel,    { 1},{KAKUNIN;im({Yes})},
  454.             { 2},{KOUSHIN(SENDFILE,memono);im({Yes})});
  455.     });
  456.     %WRITE{
  457.     delfile(TEMPPATH|{\PVAPUP.DAT});
  458.     write    (TEMPPATH|{\PVAPUP.DAT},
  459.         @getline(UPDATA,1,A-1)|
  460.         {事務局宛メール/}|
  461.         TITLE|{/}|
  462.         SENDFILE|{\n}|
  463.         @getline(UPDATA,A+1));
  464.     };
  465.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  466. };
  467.  
  468. /*    発言アップロード予約確認    */
  469. %KAKIKAKU{
  470.     var JUMP[8];
  471.     var NUMBER[2];
  472.     var TITLE[120];
  473.     var SENDFILE[64];
  474.     var ok[2];
  475.     %TYPE        @nth(@getline(UPDATA,A,{1}),1,{/});
  476.     JUMP:=        @nth(@getline(UPDATA,A,{1}),2,{/});
  477.     NUMBER:=    @nth(@getline(UPDATA,A,{1}),3,{/});
  478.     TITLE:=        @nth(@getline(UPDATA,A,{1}),4,{/});
  479.     SENDFILE:=    @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  480.     memoprep;
  481.     case    (TYPE,
  482.         {ＢＢＳ},
  483.         {madd(memono,{ＢＢＳ発言アップロード\n}|
  484.             {【　送信場所　】}|JUMP|{ }|NUMBER|{番\n}|
  485.             {【　タイトル　】}|TITLE|{\n}|
  486.             {【送信ファイル】}|SENDFILE|{\n})},
  487.         {ＳＩＧ内会議室},
  488.         {madd(memono,{ＳＩＧ内会議室発言アップロード\n}|
  489.             {【　送信場所　】}|JUMP|{ }|NUMBER|{番会議室\n}|
  490.             {【　タイトル　】}|TITLE|{\n}|
  491.             {【送信ファイル】}|SENDFILE|{\n})},,
  492.         {madd(memono,{フォーラム発言アップロード\n}|
  493.             {【　送信場所　】}|JUMP|{ }|NUMBER|{番}|TYPE|{\n}|
  494.             {【　タイトル　】}|TITLE|{\n}|
  495.             {【送信ファイル】}|SENDFILE|{\n})});
  496.     mopen(memono,0,181,639,459,{r});
  497.     SNDMSG({kaknin_f.snd});
  498.     footnote({確認して下さい});
  499.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  500.         { 変更 },{CloseMEMO(memono);KAKIHEN;A:=A+1},
  501.         { 削除 },{CloseMEMO(memono);DEL},
  502.         {  次  },{CloseMEMO(memono);A:=A+1});
  503. };
  504.  
  505. /*    ＳＩＧ・ＢＢＳの発言アップロード予約変更    */
  506. %KAKIHEN{
  507.     loop({
  508.     SNDMSG({nyuryo_f.snd});
  509.     footnote(TYPE|{発言アップロード予約});
  510.     %a    @plane(    {c}|TYPE|{発言アップロード予約\n}|
  511.             {tｼﾞｬﾝﾌﾟｺｰﾄﾞ   /12345678\n}|
  512.             {tボード番号   /12\n}|
  513.             {tタイトル     /\n}|
  514.             {t送信ファイル /\n}|
  515.             {s             / ﾌｧｲﾙ一覧 / 内容更新 \n}|
  516.             {s/ 登録 / 取消 \n},
  517.             JUMP,NUMBER,TITLE,SENDFILE);
  518.     JUMP:=        @head(@getline(a,1,1),{\n});
  519.     NUMBER:=    @head(@getline(a,2,1),{\n});
  520.     TITLE:=        @head(@getline(a,3,1),{\n});
  521.     SENDFILE:=    @head(@getline(a,4,1),{\n});
  522.     %sel        @head(@getline(a,5,1),{\n});
  523.     ok:=        @head(@getline(a,6,1),{\n});
  524.     case(sel,    { 1},{KAKUNIN},
  525.             { 2},{KOUSHIN(SENDFILE,memono)});
  526.     %WRITE{
  527.     delfile(TEMPPATH|{\PVAPUP.DAT});
  528.     write    (TEMPPATH|{\PVAPUP.DAT},
  529.         @getline(UPDATA,1,A-1)|
  530.         TYPE|{/}|
  531.         JUMP|{/}|
  532.         NUMBER|{/}|
  533.         TITLE|{/}|
  534.         SENDFILE|{\n}|
  535.         @getline(UPDATA,A+1));
  536.     };
  537.     case    (ok,
  538.         { 1},    {case    (@nochar(TITLE)>={60},
  539.                 {No},    {WRITE;im({No})},
  540.                 {Yes},    {SNDMSG({okasi_f.snd});
  541.                     select({タイトルの文字数が多すぎます}|
  542.                         {（全角で３０文字まで）},
  543.                         99999,{im({Yes})},
  544.                         { 確認 },{im({Yes})})})},
  545.         { 2},    {im({No})},,
  546.             {case    (ok={ 0}&&sel={ 0},
  547.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  548.                 {No},    {im({Yes})})});
  549.     });
  550.     setcdir(DIR1);
  551. };
  552.  
  553. /*    ＳＩＧ内ＯＬＴ広場発言アップロード予約確認    */
  554. %SIGOLTKAKU{
  555.     var JUMP[8];
  556.     var TITLE[144];
  557.     var SENDFILE[64];
  558.     var ok[2];
  559.     JUMP:=        @nth(@getline(UPDATA,A,{1}),2,{/});
  560.     TITLE:=        @nth(@getline(UPDATA,A,{1}),3,{/});
  561.     SENDFILE:=    @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  562.     memoprep;
  563.     madd(memono,{ＳＩＧ内ＯＬＴ広場発言アップロード\n}|
  564.         {【　送信場所　】}|JUMP|{\n}|
  565.         {【　タイトル　】}|TITLE|{\n}|
  566.         {【送信ファイル】}|SENDFILE|{\n});
  567.     mopen(memono,0,181,639,459,{r});
  568.     SNDMSG({kaknin_f.snd});
  569.     footnote({確認して下さい});
  570.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  571.         { 変更 },{CloseMEMO(memono);SIGOLTHEN;A:=A+1},
  572.         { 削除 },{CloseMEMO(memono);DEL},
  573.         {  次  },{CloseMEMO(memono);A:=A+1});
  574. };
  575.  
  576. /*    ＳＩＧ内ＯＬＴ広場発言アップロード予約変更    */
  577. %SIGOLTHEN{
  578.     loop({
  579.     SNDMSG({nyuryo_f.snd});
  580.     footnote({ＳＩＧ内ＯＬＴ広場発言アップロード予約});
  581.     %a    @plane(    {cＳＩＧ内ＯＬＴ広場発言アップロード予約\n}|
  582.             {tｼﾞｬﾝﾌﾟｺｰﾄﾞ   /12345678\n}|
  583.             {tタイトル     /\n}|
  584.             {t送信ファイル /\n}|
  585.             {s             / ﾌｧｲﾙ一覧 / 内容更新 \n}|
  586.             {s/ 登録 / 取消 \n},
  587.             JUMP,TITLE,SENDFILE);
  588.     JUMP:=        @head(@getline(a,1,1),{\n});
  589.     TITLE:=        @head(@getline(a,2,1),{\n});
  590.     SENDFILE:=    @head(@getline(a,3,1),{\n});
  591.     %sel        @head(@getline(a,4,1),{\n});
  592.     ok:=        @head(@getline(a,5,1),{\n});
  593.     case(sel,    { 1},{KAKUNIN},
  594.             { 2},{KOUSHIN(SENDFILE,memono)});
  595.     %WRITE{
  596.     delfile(TEMPPATH|{\PVAPUP.DAT});
  597.     write    (TEMPPATH|{\PVAPUP.DAT},
  598.         @getline(UPDATA,1,A-1)|
  599.         {ＳＩＧ内ＯＬＴ広場/}|
  600.         JUMP|{/}|
  601.         TITLE|{/}|
  602.         SENDFILE|{\n}|
  603.         @getline(UPDATA,A+1));
  604.     };
  605.     case    (ok,
  606.         { 1},    {case    (@nochar(TITLE)>={60},
  607.                 {No},    {WRITE;im({No})},
  608.                 {Yes},    {SNDMSG({okasi_f.snd});
  609.                     select({タイトルの文字数が多すぎます}|
  610.                         {（全角で３０文字まで）},
  611.                         99999,{im({Yes})},
  612.                         { 確認 },{im({Yes})})})},
  613.         { 2},    {im({No})},,
  614.             {case    (ok={ 0}&&sel={ 0},
  615.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  616.                 {No},    {im({Yes})})});
  617.     });
  618.     setcdir(DIR1);
  619. };
  620.  
  621. /*    ＣＵＧの発言アップロード予約確認    */
  622. %CUGKAKU{
  623.     var CUG[8];
  624.     var PASS[8];
  625.     var MAINNUM[2];
  626.     var NUMBER[2];
  627.     var TITLE[120];
  628.     var SENDFILE[64];
  629.     var ok[2];
  630.     %TYPE        @nth(@getline(UPDATA,A,{1}),1,{/});
  631.     CUG:=        @nth(@getline(UPDATA,A,{1}),2,{/});
  632.     PASS:=        @nth(@getline(UPDATA,A,{1}),3,{/});
  633.     MAINNUM:=    @nth(@getline(UPDATA,A,{1}),4,{/});
  634.     NUMBER:=    @nth(@getline(UPDATA,A,{1}),5,{/});
  635.     TITLE:=        @nth(@getline(UPDATA,A,{1}),6,{/});
  636.     SENDFILE:=    @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  637.     memoprep;
  638.     case    (TYPE,
  639.         {ＣＵＧ内掲示板},
  640.         {madd(memono,{ＣＵＧ内掲示板発言アップロード\n}|
  641.             {【　送信場所　】}|CUG|{ }|NUMBER|{番掲示板\n}|
  642.             {【　タイトル　】}|TITLE|{\n}|
  643.             {【送信ファイル】}|SENDFILE|{\n})},,
  644.         {madd(memono,{ＣＵＧ内会議室発言アップロード\n}|
  645.             {【　送信場所　】}|CUG|{ }|NUMBER|{番会議室\n}|
  646.             {【　タイトル　】}|TITLE|{\n}|
  647.             {【送信ファイル】}|SENDFILE|{\n})});
  648.     mopen(memono,0,181,639,459,{r});
  649.     SNDMSG({kaknin_f.snd});
  650.     footnote({確認して下さい});
  651.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  652.         { 変更 },{CloseMEMO(memono);CUGHEN;A:=A+1},
  653.         { 削除 },{CloseMEMO(memono);DEL},
  654.         {  次  },{CloseMEMO(memono);A:=A+1});
  655. };
  656.  
  657. /*    ＣＵＧの発言アップロード予約変更    */
  658. %CUGHEN{
  659.     loop({
  660.     SNDMSG({nyuryo_f.snd});
  661.     footnote(TYPE|{発言アップロード予約});
  662.     %a    @plane(    {c}|TYPE|{発言アップロード予約\n}|
  663.             {tＣＵＧ名     /12345678\n}|
  664.             {tパスワード   /12345678\n}|
  665.             {s             / 検索 \n}|
  666.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  667.             {tボード 番号  /12\n}|
  668.             {tタイトル     /\n}|
  669.             {t送信ファイル /\n}|
  670.             {s             / ﾌｧｲﾙ一覧 / 内容更新 \n}|
  671.             {s/ 登録 / 取消 \n},
  672.             CUG,PASS,MAINNUM,NUMBER,TITLE,SENDFILE);
  673.     CUG:=        @head(@getline(a,1,1),{\n});
  674.     PASS:=        @head(@getline(a,2,1),{\n});
  675.     %sel2        @head(@getline(a,3,1),{\n});
  676.     MAINNUM:=    @head(@getline(a,4,1),{\n});
  677.     NUMBER:=    @head(@getline(a,5,1),{\n});
  678.     TITLE:=        @head(@getline(a,6,1),{\n});
  679.     SENDFILE:=    @head(@getline(a,7,1),{\n});
  680.     %sel        @head(@getline(a,8,1),{\n});
  681.     ok:=        @head(@getline(a,9,1),{\n});
  682.     case(sel,    { 1},{KAKUNIN},
  683.             { 2},{KOUSHIN(SENDFILE,memono)});
  684.     case(sel2==1,{Yes},{case(CUG={},
  685.                 {No},{PASS:=@tail(PCVAN,{/}|CUG|{/},{/})})});
  686.     %WRITE{
  687.     delfile(TEMPPATH|{\PVAPUP.DAT});
  688.     write    (TEMPPATH|{\PVAPUP.DAT},
  689.         @getline(UPDATA,1,A-1)|
  690.         TYPE|{/}|
  691.         CUG|{/}|PASS|{/}|MAINNUM|{/}|
  692.         NUMBER|{/}|
  693.         TITLE|{/}|
  694.         SENDFILE|{\n}|
  695.         @getline(UPDATA,A+1));
  696.     };
  697.     case    (ok,
  698.         { 1},    {case    (@nochar(TITLE)>={60},
  699.                 {No},    {WRITE;im({No})},
  700.                 {Yes},    {SNDMSG({okasi_f.snd});
  701.                     select({タイトルの文字数が多すぎます}|
  702.                         {（全角で３０文字まで）},
  703.                         99999,{im({Yes})},
  704.                         { 確認 },{im({Yes})})})},
  705.         { 2},    {im({No})},,
  706.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  707.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  708.                 {No},    {im({Yes})})});
  709.     });
  710.     setcdir(DIR1);
  711. };
  712.  
  713. /*    ＣＵＧ内ＯＬＴ広場発言アップロード予約確認    */
  714. %CUGOLTKAKU{
  715.     var CUG[8];
  716.     var PASS[8];
  717.     var MAINNUM[2];
  718.     var TITLE[144];
  719.     var SENDFILE[64];
  720.     var ok[2];
  721.     CUG:=        @nth(@getline(UPDATA,A,{1}),2,{/});
  722.     PASS:=        @nth(@getline(UPDATA,A,{1}),3,{/});
  723.     MAINNUM:=    @nth(@getline(UPDATA,A,{1}),4,{/});
  724.     TITLE:=        @nth(@getline(UPDATA,A,{1}),5,{/});
  725.     SENDFILE:=    @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  726.     memoprep;
  727.     madd(memono,{ＣＵＧ内ＯＬＴ広場発言アップロード\n}|
  728.         {【　送信場所　】}|CUG|{\n}|
  729.         {【　タイトル　】}|TITLE|{\n}|
  730.         {【送信ファイル】}|SENDFILE|{\n});
  731.     mopen(memono,0,181,639,459,{r});
  732.     SNDMSG({kaknin_f.snd});
  733.     footnote({確認して下さい});
  734.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  735.         { 変更 },{CloseMEMO(memono);CUGOLTHEN;A:=A+1},
  736.         { 削除 },{CloseMEMO(memono);DEL},
  737.         {  次  },{CloseMEMO(memono);A:=A+1});
  738. };
  739.  
  740. /*    ＣＵＧ内ＯＬＴ広場発言アップロード予約変更    */
  741. %CUGOLTHEN{
  742.     loop({
  743.     SNDMSG({nyuryo_f.snd});
  744.     footnote({ＣＵＧ内ＯＬＴ広場発言アップロード予約});
  745.     %a    @plane(    {cＣＵＧ内ＯＬＴ広場発言アップロード予約\n}|
  746.             {tＣＵＧ名     /12345678\n}|
  747.             {tパスワード   /12345678\n}|
  748.             {s             / 検索 \n}|
  749.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  750.             {tタイトル     /\n}|
  751.             {t送信ファイル /\n}|
  752.             {s             / ﾌｧｲﾙ一覧 / 内容更新 \n}|
  753.             {s/ 登録 / 取消 \n},
  754.             CUG,PASS,MAINNUM,TITLE,SENDFILE);
  755.     CUG:=        @head(@getline(a,1,1),{\n});
  756.     PASS:=        @head(@getline(a,2,1),{\n});
  757.     %sel2        @head(@getline(a,3,1),{\n});
  758.     MAINNUM:=    @head(@getline(a,4,1),{\n});
  759.     TITLE:=        @head(@getline(a,5,1),{\n});
  760.     SENDFILE:=    @head(@getline(a,6,1),{\n});
  761.     %sel        @head(@getline(a,7,1),{\n});
  762.     ok:=        @head(@getline(a,8,1),{\n});
  763.     case(sel,    { 1},{KAKUNIN},
  764.             { 2},{KOUSHIN(SENDFILE,memono)});
  765.     case(sel2==1,{Yes},{case(CUG={},
  766.                 {No},{PASS:=@tail(PCVAN,{/}|CUG|{/},{/})})});
  767.     %WRITE{
  768.     delfile(TEMPPATH|{\PVAPUP.DAT});
  769.     write    (TEMPPATH|{\PVAPUP.DAT},
  770.         @getline(UPDATA,1,A-1)|
  771.         {ＣＵＧ内ＯＬＴ広場/}|
  772.         CUG|{/}|PASS|{/}|MAINNUM|{/}|
  773.         TITLE|{/}|
  774.         SENDFILE|{\n}|
  775.         @getline(UPDATA,A+1));
  776.     };
  777.     case    (ok,
  778.         { 1},    {case    (@nochar(TITLE)>={60},
  779.                 {No},    {WRITE;im({No})},
  780.                 {Yes},    {SNDMSG({okasi_f.snd});
  781.                     select({タイトルの文字数が多すぎます}|
  782.                         {（全角で３０文字まで）},
  783.                         99999,{im({Yes})},
  784.                         { 確認 },{im({Yes})})})},
  785.         { 2},    {im({No})},,
  786.             {case    (ok={ 0}&&sel={ 0},
  787.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  788.                 {No},    {im({Yes})})});
  789.     });
  790.     setcdir(DIR1);
  791. };
  792.  
  793. /*    ＯＬＴ広場発言アップロード予約確認    */
  794. %OLTKAKU{
  795.     var TITLE[144];
  796.     var SENDFILE[64];
  797.     var ok[2];
  798.     TITLE:=        @nth(@getline(UPDATA,A,{1}),2,{/});
  799.     SENDFILE:=    @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  800.     memoprep;
  801.     madd(memono,{ＯＬＴ広場発言アップロード\n}|
  802.         {【　タイトル　】}|TITLE|{\n}|
  803.         {【送信ファイル】}|SENDFILE|{\n});
  804.     mopen(memono,0,181,639,459,{r});
  805.     SNDMSG({kaknin_f.snd});
  806.     footnote({確認して下さい});
  807.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  808.         { 変更 },{CloseMEMO(memono);OLTHEN;A:=A+1},
  809.         { 削除 },{CloseMEMO(memono);DEL},
  810.         {  次  },{CloseMEMO(memono);A:=A+1});
  811. };
  812.  
  813. /*    ＯＬＴ広場発言アップロード予約変更    */
  814. %OLTHEN{
  815.     loop({
  816.     SNDMSG({nyuryo_f.snd});
  817.     footnote({ＯＬＴ広場発言アップロード予約});
  818.     %a    @plane(    {cＯＬＴ広場発言アップロード予約\n}|
  819.             {tタイトル     /\n}|
  820.             {t送信ファイル /\n}|
  821.             {s             / ﾌｧｲﾙ一覧 / 内容更新 \n}|
  822.             {s/ 登録 / 取消 \n},
  823.             TITLE,SENDFILE);
  824.     TITLE:=        @head(@getline(a,1,1),{\n});
  825.     SENDFILE:=    @head(@getline(a,2,1),{\n});
  826.     %sel        @head(@getline(a,3,1),{\n});
  827.     ok:=        @head(@getline(a,4,1),{\n});
  828.     case(sel,    { 1},{KAKUNIN},
  829.             { 2},{KOUSHIN(SENDFILE,memono)});
  830.     %WRITE{
  831.     delfile(TEMPPATH|{\PVAPUP.DAT});
  832.     write    (TEMPPATH|{\PVAPUP.DAT},
  833.         @getline(UPDATA,1,A-1)|
  834.         {ＯＬＴ広場/}|
  835.         TITLE|{/}|
  836.         SENDFILE|{\n}|
  837.         @getline(UPDATA,A+1));
  838.     };
  839.     case    (ok,
  840.         { 1},    {case    (@nochar(TITLE)>={60},
  841.                 {No},    {WRITE;im({No})},
  842.                 {Yes},    {SNDMSG({okasi_f.snd});
  843.                     select({タイトルの文字数が多すぎます}|
  844.                         {（全角で３０文字まで）},
  845.                         99999,{im({Yes})},
  846.                         { 確認 },{im({Yes})})})},
  847.         { 2},    {im({No})},,
  848.             {case    (ok={ 0}&&sel={ 0},
  849.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  850.                 {No},    {im({Yes})})});
  851.     });
  852.     setcdir(DIR1);
  853. };
  854.  
  855. /*    プロフィール登録予約確認    */
  856. %PROFKAKU{
  857.     var SENDFILE[64];
  858.     var ok[2];
  859.     SENDFILE:=@head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  860.     memoprep;
  861.     madd(memono,{プロフィール登録\n}|
  862.         {【送信ファイル】}|SENDFILE|{\n});
  863.     mopen(memono,0,181,639,459,{r});
  864.     SNDMSG({kaknin_f.snd});
  865.     footnote({確認して下さい});
  866.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  867.         { 変更 },{CloseMEMO(memono);PROFHEN;A:=A+1},
  868.         { 削除 },{CloseMEMO(memono);DEL},
  869.         {  次  },{CloseMEMO(memono);A:=A+1});
  870. };
  871.  
  872. /*    プロフィール登録予約変更    */
  873. %PROFHEN{
  874.     loop({
  875.     SNDMSG({nyuryo_f.snd});
  876.     footnote({プロフィール登録予約});
  877.     %a    @plane(    {cプロフィール登録予約\n}|
  878.             {t送信ファイル /\n}|
  879.             {s             / ﾌｧｲﾙ一覧 / 内容更新 \n}|
  880.             {s/ 登録 / 取消 \n},
  881.             SENDFILE);
  882.     SENDFILE:=    @head(@getline(a,1,1),{\n});
  883.     %sel        @head(@getline(a,2,1),{\n});
  884.     ok:=        @head(@getline(a,3,1),{\n});
  885.     case(sel,    { 1},{KAKUNIN;im({Yes})},
  886.             { 2},{KOUSHIN(SENDFILE,memono);im({Yes})});
  887.     });
  888.     %WRITE{
  889.     delfile(TEMPPATH|{\PVAPUP.DAT});
  890.     write    (TEMPPATH|{\PVAPUP.DAT},
  891.         @getline(UPDATA,1,A-1)|
  892.         {プロフィール/}|
  893.         SENDFILE|{\n}|
  894.         @getline(UPDATA,A+1));
  895.     };
  896.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  897. };
  898.  
  899. /*    不在通知登録予約確認    */
  900. %FUZAKAKU{
  901.     var AD1[6];
  902.     var AD2[6];
  903.     var SENDFILE[64];
  904.     var ok[2];
  905.     AD1:=        @nth(@getline(UPDATA,A,{1}),2,{/});
  906.     AD2:=        @nth(@getline(UPDATA,A,{1}),3,{/});
  907.     SENDFILE:=    @head(@tail(@getline(UPDATA,1,{1}),{/}),{\n});
  908.     memoprep;
  909.     madd(memono,{不在通知登録\n}|
  910.         {【不在　開始日】}|
  911.         @getchar(AD1,{1},{2})|{年}|@getchar(AD1,{3},{2})|{月}|
  912.         @getchar(AD1,{5},{2})|{日\n}|
  913.         {【不在　終了日】}|
  914.         @getchar(AD2,{1},{2})|{年}|@getchar(AD2,{3},{2})|{月}|
  915.         @getchar(AD2,{5},{2})|{日\n}|
  916.         {【送信ファイル】}|SENDFILE|{\n});
  917.     mopen(memono,0,181,639,459,{r});
  918.     SNDMSG({kaknin_f.snd});
  919.     footnote({確認して下さい});
  920.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  921.         { 変更 },{CloseMEMO(memono);FUZAHEN;A:=A+1},
  922.         { 削除 },{CloseMEMO(memono);DEL},
  923.         {  次  },{CloseMEMO(memono);A:=A+1});
  924. };
  925.  
  926. /*    不在通知登録予約変更    */
  927. %FUZAHEN{
  928.     loop({
  929.     SNDMSG({nyuryo_f.snd});
  930.     footnote({不在通知登録予約});
  931.     %a    @plane(    {c不在通知登録予約\n}|
  932.             {t不在開始日   /123456\n}|
  933.             {c （例）920428  92年4月28日に不在開始する場合\n}|
  934.             {t不在終了日   /123456\n}|
  935.             {c （例）920528  92年5月28日に不在終了する場合\n}|
  936.             {t送信ファイル /\n}|
  937.             {s             / ﾌｧｲﾙ一覧 / 内容更新 \n}|
  938.             {s/ 登録 / 取消 \n},
  939.             AD1,AD2,SENDFILE);
  940.     AD1:=        @head(@getline(a,1,1),{\n});
  941.     AD2:=        @head(@getline(a,2,1),{\n});
  942.     SENDFILE:=    @head(@getline(a,3,1),{\n});
  943.     %sel        @head(@getline(a,4,1),{\n});
  944.     ok:=        @head(@getline(a,5,1),{\n});
  945.     case(sel,    { 1},{KAKUNIN;im({Yes})},
  946.             { 2},{KOUSHIN(SENDFILE,memono);im({Yes})});
  947.     });
  948.     %WRITE{
  949.     delfile(TEMPPATH|{\PVAPUP.DAT});
  950.     write    (TEMPPATH|{\PVAPUP.DAT},
  951.         @getline(UPDATA,1,A-1)|
  952.         {不在通知}|
  953.         AD1|{/}|AD2|{/}|
  954.         SENDFILE|{\n}|
  955.         @getline(UPDATA,A+1));
  956.     };
  957.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  958. };
  959.  
  960. /*    ＳＩＧ内ＯＳＬアップロード予約確認    */
  961. %OSLKAKU{
  962.     var JUMP[8];
  963.     var OSLNUM[2];
  964.     var TITLE[144];
  965.     var SENDFILE[64];
  966.     var sendfile[64];
  967.     var ok[2];
  968.     JUMP:=        @nth(@getline(UPDATA,A,{1}),2,{/});
  969.     OSLNUM:=    @nth(@getline(UPDATA,A,{1}),3,{/});
  970.     TITLE:=        @nth(@getline(UPDATA,A,{1}),4,{/});
  971.     SENDFILE:=    @nth(@getline(UPDATA,A,{1}),5,{/});
  972.     sendfile:=    @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  973.     memoprep;
  974.     madd(memono,{ＳＩＧ内ＯＳＬアップロード\n}|
  975.         {【　送信場所　】}|JUMP|{ }|OSLNUM|{番ＯＳＬ\n}| 
  976.         {【　コメント　】}|TITLE|{\n}|
  977.         {【ﾄﾞｷｭﾒﾝﾄ ﾌｧｲﾙ】}|SENDFILE|{\n}|
  978.         {【ﾌﾟﾛｸﾞﾗﾑ ﾌｧｲﾙ】}|sendfile|{\n});
  979.     mopen(memono,0,181,639,459,{r});
  980.     SNDMSG({kaknin_f.snd});
  981.     footnote({確認して下さい});
  982.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  983.         { 変更 },{CloseMEMO(memono);OSLHEN;A:=A+1},
  984.         { 削除 },{CloseMEMO(memono);DEL},
  985.         {  次  },{CloseMEMO(memono);A:=A+1});
  986. };
  987.  
  988. /*    ＳＩＧ内ＯＳＬアップロード予約変更    */
  989. %OSLHEN{
  990.     loop({
  991.     SNDMSG({nyuryo_f.snd});
  992.     footnote({ＳＩＧ内ＯＳＬアップロード予約});
  993.     %a    @plane(    {cＳＩＧ内ＯＳＬアップロード予約\n}|
  994.             {tｼﾞｬﾝﾌﾟｺｰﾄﾞ   /12345678\n}|
  995.             {tＯＳＬ番号   /12\n}|
  996.             {tコメント     /\n}|
  997.             {tﾄﾞｷｭﾒﾝﾄ ﾌｧｲﾙ /\n}|
  998.             {s             / ﾌｧｲﾙ一覧 / 内容更新 \n}|
  999.             {tﾌﾟﾛｸﾞﾗﾑ ﾌｧｲﾙ /\n}|
  1000.             {s             / ﾌｧｲﾙ一覧 \n}|
  1001.             {s/ 登録 / 取消 \n},
  1002.             JUMP,OSLNUM,TITLE,SENDFILE,sendfile);
  1003.     JUMP:=        @head(@getline(a,1,1),{\n});
  1004.     OSLNUM:=    @head(@getline(a,2,1),{\n});
  1005.     TITLE:=        @head(@getline(a,3,1),{\n});
  1006.     SENDFILE:=    @head(@getline(a,4,1),{\n});
  1007.     %sel        @head(@getline(a,5,1),{\n});
  1008.     sendfile:=    @head(@getline(a,6,1),{\n});
  1009.     %sel2        @head(@getline(a,7,1),{\n});
  1010.     ok:=        @head(@getline(a,8,1),{\n});
  1011.     case(sel,    { 1},{KAKUNIN},
  1012.             { 2},{KOUSHIN(SENDFILE,memono)});
  1013.     case(sel2==1,{Yes},{sendfile:=@FILEsel1});
  1014.     %WRITE{
  1015.     delfile(TEMPPATH|{\PVAPUP.DAT});
  1016.     write    (TEMPPATH|{\PVAPUP.DAT},
  1017.         @getline(UPDATA,1,A-1)|
  1018.         {ＳＩＧ内ＯＳＬ/}|
  1019.         JUMP|{/}|
  1020.         OSLNUM|{/}|
  1021.         TITLE|{/}|
  1022.         SENDFILE|{/}|sendfile|{\n}|
  1023.         @getline(UPDATA,A+1));
  1024.     };
  1025.     case    (ok,
  1026.         { 1},    {case    (@nochar(TITLE)>={72},
  1027.                 {No},    {WRITE;im({No})},
  1028.                 {Yes},    {SNDMSG({okasi_f.snd});
  1029.                     select({コメントの文字数が多すぎます}|
  1030.                         {（全角で３６文字まで）},
  1031.                         99999,{im({Yes})},
  1032.                         { 確認 },{im({Yes})})})},
  1033.         { 2},    {im({No})},,
  1034.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  1035.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  1036.                 {No},    {im({Yes})})});
  1037.     });
  1038.     setcdir(DIR1);
  1039. };
  1040.  
  1041. /*    ＣＵＧ内ＯＳＬアップロード予約確認    */
  1042. %CUGOSLKAKU{
  1043.     var CUG[8];
  1044.     var PASS[8];
  1045.     var MAINNUM[2];
  1046.     var OSLNUM[2];
  1047.     var TITLE[144];
  1048.     var SENDFILE[64];
  1049.     var sendfile[64];
  1050.     var ok[2];
  1051.     CUG:=        @nth(@getline(UPDATA,A,{1}),2,{/});
  1052.     PASS:=        @nth(@getline(UPDATA,A,{1}),3,{/});
  1053.     MAINNUM:=    @nth(@getline(UPDATA,A,{1}),4,{/});
  1054.     OSLNUM:=    @nth(@getline(UPDATA,A,{1}),5,{/});
  1055.     TITLE:=        @nth(@getline(UPDATA,A,{1}),6,{/});
  1056.     SENDFILE:=    @nth(@getline(UPDATA,A,{1}),7,{/});
  1057.     sendfile:=    @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  1058.     memoprep;
  1059.     madd(memono,{ＣＵＧ内ＯＳＬアップロード\n}|
  1060.         {【　送信場所　】}|CUG|{ }|OSLNUM|{番ＯＳＬ\n}| 
  1061.         {【　コメント　】}|TITLE|{\n}|
  1062.         {【ﾄﾞｷｭﾒﾝﾄ ﾌｧｲﾙ】}|SENDFILE|{\n}|
  1063.         {【ﾌﾟﾛｸﾞﾗﾑ ﾌｧｲﾙ】}|sendfile|{\n});
  1064.     mopen(memono,0,181,639,459,{r});
  1065.     SNDMSG({kaknin_f.snd});
  1066.     footnote({確認して下さい});
  1067.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  1068.         { 変更 },{CloseMEMO(memono);CUGOSLHEN;A:=A+1},
  1069.         { 削除 },{CloseMEMO(memono);DEL},
  1070.         {  次  },{CloseMEMO(memono);A:=A+1});
  1071. };
  1072.  
  1073. /*    ＣＵＧ内ＯＳＬアップロード予約変更    */
  1074. %CUGOSLHEN{
  1075.     loop({
  1076.     SNDMSG({nyuryo_f.snd});
  1077.     footnote({ＣＵＧ内ＯＳＬアップロード予約});
  1078.     %a    @plane(    {cＣＵＧ内ＯＳＬアップロード予約\n}|
  1079.             {tＣＵＧ名     /12345678\n}|
  1080.             {tパスワード   /12345678\n}|
  1081.             {s             / 検索 \n}|
  1082.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  1083.             {tＯＳＬ 番号  /12\n}|
  1084.             {tコメント     /\n}|
  1085.             {tﾄﾞｷｭﾒﾝﾄ ﾌｧｲﾙ /\n}|
  1086.             {s             / ﾌｧｲﾙ一覧 / 内容更新 \n}|
  1087.             {tﾌﾟﾛｸﾞﾗﾑ ﾌｧｲﾙ /\n}|
  1088.             {s             / ﾌｧｲﾙ一覧 \n}|
  1089.             {s/ 登録 / 取消 \n},
  1090.             CUG,PASS,MAINNUM,OSLNUM,TITLE,SENDFILE,sendfile);
  1091.     CUG:=        @head(@getline(a,1,1),{\n});
  1092.     PASS:=        @head(@getline(a,2,1),{\n});
  1093.     %sel3        @head(@getline(a,3,1),{\n});
  1094.     MAINNUM:=    @head(@getline(a,4,1),{\n});
  1095.     OSLNUM:=    @head(@getline(a,5,1),{\n});
  1096.     TITLE:=        @head(@getline(a,6,1),{\n});
  1097.     SENDFILE:=    @head(@getline(a,7,1),{\n});
  1098.     %sel        @head(@getline(a,8,1),{\n});
  1099.     sendfile:=    @head(@getline(a,9,1),{\n});
  1100.     %sel2        @head(@getline(a,10,1),{\n});
  1101.     ok:=        @head(@getline(a,11,1),{\n});
  1102.     case(sel,    { 1},{KAKUNIN},
  1103.             { 2},{KOUSHIN(SENDFILE,memono)});
  1104.     case(sel2==1,{Yes},{sendfile:=@FILEsel1});
  1105.     case(sel3==1,{Yes},{case(CUG={},
  1106.                 {No},{PASS:=@tail(PCVAN,{/}|CUG|{/},{/})})});
  1107.     %WRITE{
  1108.     delfile(TEMPPATH|{\PVAPUP.DAT});
  1109.     write    (TEMPPATH|{\PVAPUP.DAT},
  1110.         @getline(UPDATA,1,A-1)|
  1111.         {ＣＵＧ内ＯＳＬ/}|
  1112.         CUG|{/}|PASS|{/}|MAINNUM|{/}|
  1113.         OSLNUM|{/}|
  1114.         TITLE|{/}|
  1115.         SENDFILE|{/}|sendfile|{\n}|
  1116.         @getline(UPDATA,A+1));
  1117.     };
  1118.     case    (ok,
  1119.         { 1},    {case    (@nochar(TITLE)>={72},
  1120.                 {No},    {WRITE;im({No})},
  1121.                 {Yes},    {SNDMSG({okasi_f.snd});
  1122.                     select({コメントの文字数が多すぎます}|
  1123.                         {（全角で３６文字まで）},
  1124.                         99999,{im({Yes})},
  1125.                         { 確認 },{im({Yes})})})},
  1126.         { 2},    {im({No})},,
  1127.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0}&&sel3={ 0},
  1128.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  1129.                 {No},    {im({Yes})})});
  1130.     });
  1131.     setcdir(DIR1);
  1132. };
  1133.  
  1134. /*    送信予約削除    */
  1135. %DEL{
  1136.     %del{
  1137.     setcdir(DIR1);
  1138.     delfile(TEMPPATH|{\PVAPUP.DAT});
  1139.     write    (TEMPPATH|{\PVAPUP.DAT},
  1140.         @getline(UPDATA,1,A-1)|
  1141.         @getline(UPDATA,A+1));
  1142.     };
  1143.     SNDMSG({kaknin_f.snd});
  1144.     footnote({削除してよろしいですか？});
  1145.     select({削除してよろしいですか？},99999,,
  1146.         {  削除する  },del,
  1147.         { 削除しない },);
  1148. };
  1149.  
  1150. /*    実行    */
  1151. %Filechk @filechk(TEMPPATH|{\PVAPUP.DAT});
  1152. %memono @mlast+1;
  1153. case    (Filechk,
  1154.     {No},    {SNDMSG({kaknin_f.snd});
  1155.         footnote({予約済のアップロードはありません});
  1156.         select({予約済のアップロードはありません},
  1157.             99999,,
  1158.             { 確認 },)},
  1159.     {Yes},    {case    (memono>7,
  1160.             {Yes},
  1161.             {SNDMSG({kaknin_f.snd});
  1162.             footnote({メモ７－９を削除してもよろしいですか？});
  1163.             select    ({メモ７－９を削除してもよろしいですか？},
  1164.                 99999,,    { は  い },{%memono {7};UPKAKUN},
  1165.                     { いいえ },)},
  1166.             {No},{UPKAKUN})});
  1167.